Public Class BowenInputs

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case Me.ComboBox1.SelectedIndex
            Case 0
                For i As Integer = 0 To 7
                    For j As Integer = 0 To 3
                        Me.EFlex1.SetData(i + 1, j + 1, Met.BowenDry(i)(j))
                    Next
                Next
            Case 1
                For i As Integer = 0 To 7
                    For j As Integer = 0 To 3
                        Me.EFlex1.SetData(i + 1, j + 1, Met.BowenMoi(i)(j))
                    Next
                Next
            Case 2
                For i As Integer = 0 To 7
                    For j As Integer = 0 To 3
                        Me.EFlex1.SetData(i + 1, j + 1, Met.BowenWet(i)(j))
                    Next
                Next
        End Select
    End Sub

    Private Sub BowenInputs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.EFlex1.Styles.Alternate.BackColor = Color.FromArgb(216, 228, 248)
        Me.ComboBox1.SelectedIndex = 0
        Me.EFlex1.AllowDragging = C1.Win.C1FlexGrid.AllowDraggingEnum.None
        Me.EFlex1.AllowResizing = C1.Win.C1FlexGrid.AllowDraggingEnum.None
        Me.EFlex1.AllowSorting = C1.Win.C1FlexGrid.AllowDraggingEnum.None
    End Sub
End Class
